Strict

Import agfx


Global myTmpScreen:TTmpScreen

Class TAgfx_test_app Extends TFramework

	Method OnCreate:Int()
		
		
		Super.OnCreate()
				
		DISPLAY.SetVirtualSize(320,480)

		myTmpScreen = New TTmpScreen		
		myTmpScreen.Prepare()
		
		Return 0
	End
	
End


Class TTmpScreen Extends TScreen
	
	
	Field id:Int = 0
	Field CONSOLE:TConsole
	' START when app is created
	Method Start:Void()
		CONSOLE = New TConsole()
		CONSOLE.Show()
	End
	
	' main app logic loop update
	Method Update:Void()
		id+=1
		CONSOLE.Add("Skuska zapisu do CONSOLE "+id)
	End
	
	' main app render loop
	Method Render:Void()
		
		Cls
		SetColor 255,128,0
		DrawRect(0,0,DISPLAY.VSCREEN_WIDTH,320)
		'SetColor 255,255,255
		CONSOLE.Draw()
	End
End







